home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_3 / mumu / install mumu next >
Text File  |  1994-01-26  |  2KB  |  108 lines
  1. ;
  2. ; Installer-script for the installation of MuMu
  3. ;
  4. ;    $VER: Install MuMu 1.0 (06.01.94) by Litrik De Roy
  5. ;
  6.  
  7. (set @default-dest "")
  8.  
  9. (set #not_root "\n\nYou must be logged in\nas 'root' to install MuMu !")
  10. (set #bad_kick "You must be using Kickstart 2.04 (or higher) !")
  11.  
  12. (set #install-msg
  13.     (cat "\nMuMu installation script.\n\n"
  14.          "This script installs MuMu 1.0 on your Amiga.\n\n"
  15.          "Read the documentation for\n"
  16.          "information on the usage of MuMu.\n"
  17.          "\nMuMu © 1994 Litrik De Roy\n"
  18.          "All rights reserved."
  19.     )
  20. )
  21.  
  22. (set #utility-msg
  23.     (cat "    These utilities are used in the scripts "
  24.          "and are probably useful even if you're "
  25.          "going to edit the scripts.\n\n"
  26.     )
  27. )
  28.  
  29. ;=============================================================================
  30. ; make sure we are running under a 2.04 ROM
  31.  
  32. (if (< (/ (getversion) 65536) 37)
  33. (
  34.     (abort #bad_kick)
  35. ))
  36.  
  37. ;=============================================================================
  38. ; make sure we are root
  39.  
  40. (run "setenv install_user `UserInfo QUICK`")
  41. (if (NOT (= (getenv "install_user") "root"))
  42.     (
  43.         (abort #not_root)
  44.     )
  45. )
  46.  
  47. (welcome)
  48.  
  49. ;=============================================================================
  50. ; say hi
  51.  
  52. (message #install-msg)
  53.  
  54. ;=============================================================================
  55. ; 
  56.  
  57. (run "setenv install_home $home")
  58. (set home ("%s" (getenv "install_home")))
  59.  
  60. (copyfiles
  61.     (prompt "Copying executable...")
  62.     (help @copyfiles-help)
  63.     (source "MuMu")
  64.     (dest "SYS:WBstartup")
  65.     (infos)
  66.     (confirm)
  67. )
  68.  
  69. (run "MProtect SYS:WBstartup/MuMu GROUP RWED OTHER RWED SUB")
  70. (run "MProtect SYS:WBstartup/MuMu.info GROUP RWED OTHER RWED SUB")
  71.  
  72. (complete 30)
  73.  
  74.  
  75. (copyfiles
  76.     (prompt "Copying scripts...")
  77.     (help @copyfiles-help)
  78.     (source "S")
  79.     (dest (cat home "/S"))
  80.     (all)
  81.     (confirm)
  82. )
  83.  
  84. (complete 55)
  85.  
  86. (copyfiles
  87.     (prompt "Copying utilities...")
  88.     (help (cat #utility-msg @copyfiles-help))
  89.     (source "C")
  90.     (dest "C:")
  91.     (all)
  92.     (confirm)
  93. )
  94.  
  95. (complete 75)
  96.  
  97. (copyfiles
  98.     (prompt "Copying doc...")
  99.     (help @copyfiles-help)
  100.     (source "")
  101.     (dest (cat home "/docs"))
  102.     (pattern "MuMu.guide#?")
  103.     (confirm)
  104. )
  105.  
  106. (complete 100)
  107.  
  108.